OS. Geometryメソッドの使用

mStaadObjの宣言の後に「Dim nodesCount As Integer」と入力し、<Enter>キーを押します。
これにより、変数nodesCountの寸法が整数として設定されます。
「Dim beamCount As Integer」と入力し、<Enter>キーを押します。
これにより、変数beamCountの寸法が整数として設定されます。
mStaadObjの開始の後に「nodesCount = mStaadObj.geometry.GetNodeCount()」と入力し、<Enter>キーを押します。
これにより、OpenSTAADメソッドGetNodeCount()を使用して、アクティブなSTAAD.Proモデル内のノードの数が指定した変数に返されるようになります。
「beamCount = mStaadObj.geometry.GetMemberCount()」と入力し、<Enter>キーを押します。
同様に、OpenSTAADメソッドGetMemberCount()を使用して、アクティブなSTAAD.Proモデル内のメンバーの数が指定した変数に返されるようになります。

ヒント: 使用可能なメソッドの詳細、およびそれぞれで入力として受け入れられる値と返される値については、OpenSTAADのドキュメントを参照してください。

この時点で、プログラムは次のようになります。

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim mStaadObj As Object
        Dim nodesCount As Integer
        Dim beamCount As Integer

        mStaadObj = GetObject(, "StaadPro.OpenSTAAD")
        nodesCount = mStaadObj.geometry.GetNodeCount()
        beamCount = mStaadObj.geometry.GetMemberCount()
        
    End Sub
End Class